﻿Imports BUS
Imports DTO
Imports DAO
Imports System.Data.OleDb

Public Class soluongthuoc

    Private Sub btn_thoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_thoat.Click
        Close()
    End Sub

    Private Sub soluongthuoc_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt As New DataTable
        Dim hsBus As New ThuocBUS()
        dt = hsBus.LayBang()
        DataGridView1.DataSource = dt
    End Sub
End Class